home *** CD-ROM | disk | FTP | other *** search
/ Logiciels PC Special 3 / Logiciel PC - Hors-Serie 3.iso / Logs / micros / ql / outils / qltoolsq / source / docs / qlverify < prev    next >
Text File  |  1995-12-03  |  310b  |  17 lines
  1. #!/usr/bin/perl
  2. # Perl script to copy all files from a QL DD disk under Linux
  3. # _ in QDOS file names are changed to .
  4. print "$ARGV[0]\n";
  5. open (QL, "qltools $ARGV[0] -s |");
  6.  
  7. while (<QL>)
  8. {
  9.     print;
  10.     chomp;
  11.     $unx = $_;
  12.     $unx =~ s/_/\./g;
  13.     system "qltools $ARGV[0] $_ >/dev/nul\n";
  14. }
  15. close (QL);
  16.  
  17.